home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / code1a / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-10  |  1.5 KB  |  55 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Pregled"
  4.    ClientHeight    =   6270
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7005
  8.    Icon            =   "Form2.frx":0000
  9.    LinkTopic       =   "Form2"
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   6270
  12.    ScaleWidth      =   7005
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.TextBox Text1 
  16.       Height          =   5895
  17.       Left            =   0
  18.       MultiLine       =   -1  'True
  19.       ScrollBars      =   2  'Vertical
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   6975
  23.    End
  24. Attribute VB_Name = "Form2"
  25. Attribute VB_GlobalNameSpace = False
  26. Attribute VB_Creatable = False
  27. Attribute VB_PredeclaredId = True
  28. Attribute VB_Exposed = False
  29. Private Sub Command1_Click()
  30. Unload Me
  31. End Sub
  32. Private Sub Form_Paint()
  33. On Error GoTo greska
  34. Form1.Hide
  35. Open Form1.Dir1.Path + "\" + Form1.Label1.Caption For Input As 1
  36. Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
  37. Close #1
  38. Form2.Caption = Form1.Label1.Caption
  39. GoTo kraj
  40. greska:
  41. MsgBox "Ne mogu da otvorim fajl. Verovatno je veci od 64K.", , "Greska"
  42. Close #1
  43. kraj:
  44. End Sub
  45. Private Sub Form_Resize()
  46. Text1.Height = Form2.Height - 400
  47. Text1.Width = Form2.Width - 100
  48. End Sub
  49. Private Sub Form_Terminate()
  50. Form1.Show
  51. End Sub
  52. Private Sub Form_Unload(Cancel As Integer)
  53. Form1.Show
  54. End Sub
  55.